home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / vu / frmmain.frm next >
Text File  |  1999-06-03  |  3KB  |  126 lines
  1. VERSION 5.00
  2. Object = "{6148AFC5-1910-11D3-B72F-444553540000}#1.0#0"; "VUDEMO.ocx"
  3. Begin VB.Form frmMain 
  4.    Caption         =   "VU Meter 1.5 Tester (DEMO)"
  5.    ClientHeight    =   2955
  6.    ClientLeft      =   4380
  7.    ClientTop       =   5175
  8.    ClientWidth     =   5235
  9.    ControlBox      =   0   'False
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   9
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "frmMain.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    ScaleHeight     =   2955
  22.    ScaleWidth      =   5235
  23.    Begin VUDEMO.ucVURightAnalog ucVUR 
  24.       Height          =   1185
  25.       Left            =   2805
  26.       TabIndex        =   4
  27.       Top             =   915
  28.       Width           =   1815
  29.       _ExtentX        =   3201
  30.       _ExtentY        =   2090
  31.       PriorityVal     =   10
  32.    End
  33.    Begin VUDEMO.ucVULeftAnalog ucVUL 
  34.       Height          =   1185
  35.       Left            =   480
  36.       TabIndex        =   3
  37.       Top             =   915
  38.       Width           =   1815
  39.       _ExtentX        =   3201
  40.       _ExtentY        =   2090
  41.       PriorityVal     =   10
  42.    End
  43.    Begin VB.CommandButton cmdClose 
  44.       Caption         =   "Cool!!!"
  45.       Height          =   345
  46.       Left            =   4110
  47.       TabIndex        =   2
  48.       Top             =   2505
  49.       Width           =   1065
  50.    End
  51.    Begin VB.ComboBox cmdMonitorLines 
  52.       BeginProperty Font 
  53.          Name            =   "Tahoma"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   315
  62.       Left            =   210
  63.       Style           =   2  'Dropdown List
  64.       TabIndex        =   0
  65.       Top             =   285
  66.       Width           =   2295
  67.    End
  68.    Begin VB.Label Label1 
  69.       Caption         =   "Monitor:"
  70.       Height          =   285
  71.       Left            =   210
  72.       TabIndex        =   1
  73.       Top             =   60
  74.       Width           =   810
  75.    End
  76. End
  77. Attribute VB_Name = "frmMain"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Option Explicit
  83.  
  84. Private Sub cmdClose_Click()
  85.  
  86.     ucVUL.StopVU
  87.     ucVUR.StopVU
  88.     
  89.     Unload Me
  90.  
  91. End Sub
  92.  
  93. Private Sub cmdMonitorLines_Click()
  94.  
  95.     ucVUR.SetMonitorLine = cmdMonitorLines.ListIndex + 1
  96.     ucVUL.SetMonitorLine = cmdMonitorLines.ListIndex + 1
  97.  
  98. End Sub
  99.  
  100. Private Sub Form_Load()
  101.  
  102.     Dim i As Integer
  103.  
  104.     With ucVUR
  105.         .StartVU
  106.         For i = 1 To .MonitorLinesCount
  107.             cmdMonitorLines.AddItem .MonitorLineName(i)
  108.         Next i
  109.     End With
  110.     
  111.     With ucVUL
  112.         .StartVU
  113.     End With
  114.     
  115.     If cmdMonitorLines.ListCount > 0 Then
  116.         cmdMonitorLines.ListIndex = 0
  117.     End If
  118.  
  119. End Sub
  120.  
  121. Private Sub ucVUL_VUError(msg As String)
  122.  
  123.     MsgBox msg
  124.  
  125. End Sub
  126.